home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / K-L / LANDS.cpt / Lock and Scroll / card_3977.txt < prev    next >
Text File  |  1988-01-26  |  6KB  |  273 lines

  1. -- card: 3977 from stack: in
  2. -- bmap block id: 4267
  3. -- flags: 0000
  4. -- background id: 3525
  5. -- name: glossary
  6. ----- HyperTalk script -----
  7. on idle
  8.   get the scroll of card field "word"
  9.   set the scroll of card field "definition" to it *4
  10.   set the hilite of card button "No match." to true
  11. end idle
  12.  
  13.  
  14.  
  15. -- part 5 (button)
  16. -- low flags: 00
  17. -- high flags: 2000
  18. -- rect: left=435 top=128 right=166 bottom=476
  19. -- title width / last selected line: 0
  20. -- icon id / first selected line: 20098 / 20098
  21. -- text alignment: 1
  22. -- font id: 0
  23. -- text size: 12
  24. -- style flags: 0
  25. -- line height: 16
  26. -- part name: Home
  27. ----- HyperTalk script -----
  28. on mouseUp
  29.   visual effect iris close
  30.   go home
  31. end mouseUp
  32.  
  33.  
  34.  
  35. -- part 11 (field)
  36. -- low flags: 01
  37. -- high flags: 2007
  38. -- rect: left=127 top=173 right=204 bottom=470
  39. -- title width / last selected line: 0
  40. -- icon id / first selected line: 0 / 0
  41. -- text alignment: 0
  42. -- font id: 3
  43. -- text size: 18
  44. -- style flags: 256
  45. -- line height: 26
  46. -- part name: word
  47. ----- HyperTalk script -----
  48. on mousewithin
  49.   get the scroll of card field "word"
  50.   set the scroll of card field "definition" to it *4
  51. end mousewithin
  52.  
  53.  
  54. -- part 12 (field)
  55. -- low flags: 01
  56. -- high flags: 0007
  57. -- rect: left=127 top=203 right=309 bottom=486
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 0 / 0
  60. -- text alignment: 0
  61. -- font id: 3
  62. -- text size: 18
  63. -- style flags: 0
  64. -- line height: 26
  65. -- part name: definition
  66.  
  67.  
  68. -- part 13 (field)
  69. -- low flags: 01
  70. -- high flags: 0001
  71. -- rect: left=470 top=173 right=312 bottom=489
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 0 / 0
  74. -- text alignment: 0
  75. -- font id: 3
  76. -- text size: 12
  77. -- style flags: 0
  78. -- line height: 16
  79. -- part name: 
  80.  
  81.  
  82. -- part 14 (button)
  83. -- low flags: 00
  84. -- high flags: 2000
  85. -- rect: left=34 top=208 right=236 bottom=71
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 2478 / 2478
  88. -- text alignment: 1
  89. -- font id: 0
  90. -- text size: 12
  91. -- style flags: 0
  92. -- line height: 16
  93. -- part name: New Button
  94. ----- HyperTalk script -----
  95. on mouseUp
  96.   set visible of card field "about" to not the visible of card field "about"
  97.  
  98. end mouseUp
  99.  
  100.  
  101.  
  102. -- part 16 (button)
  103. -- low flags: 00
  104. -- high flags: 2000
  105. -- rect: left=30 top=243 right=280 bottom=120
  106. -- title width / last selected line: 0
  107. -- icon id / first selected line: 0 / 0
  108. -- text alignment: 1
  109. -- font id: 0
  110. -- text size: 12
  111. -- style flags: 0
  112. -- line height: 16
  113. -- part name: 
  114. ----- HyperTalk script -----
  115. on mouseUp
  116.   visual dissolve
  117.   go to card id 3301
  118. end mouseUp
  119.  
  120.  
  121.  
  122.  
  123. -- part 21 (button)
  124. -- low flags: 00
  125. -- high flags: A003
  126. -- rect: left=26 top=174 right=201 bottom=122
  127. -- title width / last selected line: 0
  128. -- icon id / first selected line: 0 / 0
  129. -- text alignment: 1
  130. -- font id: 0
  131. -- text size: 12
  132. -- style flags: 0
  133. -- line height: 16
  134. -- part name: Find...
  135. ----- HyperTalk script -----
  136. on mouseUp
  137.   ask "Input the dwarf's name:" with "OK"
  138.   find word it in field "word"
  139.   if the result is not empty then
  140.     show card button "no match."
  141.     wait 2 seconds
  142.     hide card button "no match."
  143.   end if
  144. end mouseUp
  145.  
  146.  
  147.  
  148. -- part 22 (button)
  149. -- low flags: 80
  150. -- high flags: E002
  151. -- rect: left=29 top=284 right=309 bottom=121
  152. -- title width / last selected line: 0
  153. -- icon id / first selected line: 0 / 0
  154. -- text alignment: 1
  155. -- font id: 0
  156. -- text size: 12
  157. -- style flags: 0
  158. -- line height: 16
  159. -- part name: No match.
  160. ----- HyperTalk script -----
  161. on mouseUp
  162.   ask "Input the word:" with "OK"
  163.   find word it in field "word"
  164.   if the result is not empty then
  165.     show card button "no match."
  166.     wait 2 seconds
  167.     hide card button "no match."
  168.   end if
  169. end mouseUp
  170.  
  171.  
  172.  
  173. -- part 23 (button)
  174. -- low flags: 00
  175. -- high flags: 2000
  176. -- rect: left=81 top=205 right=236 bottom=114
  177. -- title width / last selected line: 0
  178. -- icon id / first selected line: 26425 / 26425
  179. -- text alignment: 1
  180. -- font id: 0
  181. -- text size: 12
  182. -- style flags: 0
  183. -- line height: 16
  184. -- part name: New Button
  185. ----- HyperTalk script -----
  186. on mouseUp
  187.   visual dissolve
  188.   go next
  189. end mouseUp
  190.  
  191.  
  192.  
  193. -- part 24 (field)
  194. -- low flags: 01
  195. -- high flags: 0001
  196. -- rect: left=254 top=175 right=202 bottom=451
  197. -- title width / last selected line: 0
  198. -- icon id / first selected line: 0 / 0
  199. -- text alignment: 0
  200. -- font id: 3
  201. -- text size: 12
  202. -- style flags: 0
  203. -- line height: 16
  204. -- part name: 
  205.  
  206.  
  207. -- part 15 (field)
  208. -- low flags: 81
  209. -- high flags: 2007
  210. -- rect: left=127 top=173 right=308 bottom=470
  211. -- title width / last selected line: 0
  212. -- icon id / first selected line: 0 / 0
  213. -- text alignment: 0
  214. -- font id: 3
  215. -- text size: 14
  216. -- style flags: 0
  217. -- line height: 18
  218. -- part name: about
  219. ----- HyperTalk script -----
  220. on mouseup
  221.   set the visible of card field "about" to not the visible of card field "about"
  222. end mouseup
  223.  
  224.  
  225.  
  226. -- part contents for card part 11
  227. ----- text -----
  228. BASHFUL           PINKO
  229. DOC                    DEGREE
  230. DOPEY
  231. GRUMPY                  GRUMPY'S
  232. HAPPY               LAUGHING
  233. SLEEPY            UNCONSCIOUS
  234. SNEEZY            NOSEBLEEDS
  235.  
  236. -- part contents for card part 12
  237. ----- text -----
  238.  
  239. The shy one. Doesn't speak,
  240. even when spoken to. Very
  241. secretive, possibly a communist.
  242.  
  243. The connection. Very vague about
  244. where he attended medical school.
  245. Dispenses prescriptions to dwarves.
  246.  
  247. The supposedly stupid one. Could
  248. be an act, however: his phone bill
  249. indicates calls to Turkey.
  250.  
  251. The obnoxious one. Snaps at the
  252. slightest provocation. Probably due
  253. to ingestion of too many diet sodas.
  254.  
  255. The stoned one. Impossible to make
  256. any headway with him. Never very
  257. far from Doc. Giggles incessantly.
  258.  
  259. Another dwarf in total thrall of
  260. Doc. However in this case prefers
  261. barbituates. Snores very loudly.
  262.  
  263. The sniffly one. Large quantities of
  264. white powder kept under his bed.
  265. Close friend of Snow White.
  266.  
  267.  
  268.  
  269. -- part contents for card part 15
  270. ----- text -----
  271. Lock and scroll is an example of linked fields as they might be implemented in a glossary or other Hypertext reference. As you scroll through the word list, the definitions change accordingly. You can also input the word from the keyboard, or as you'll see on the next card, click on the word from any other text field.
  272.  
  273. Click on this field to return to the utility.